* Apply to:  sfmay_2018.xls
* Description:  Figure 4

clear


import excel "...\2204 JEPS\sfmay_2018.xls", sheet("Sheet1") firstrow


* Selected information

tab treatment2 if treatment1==5


* Type of information selected

tab treatment2 if treatment2==7 | treatment2==8


clear


set obs 7

gen order = [_n] - 1

gen mean = 0
replace mean = 49.21 if order==1
replace mean = 50.79 if order==2

replace mean = 24.74 if order==4
replace mean = 75.26 if order==5


* Figure 4.  Percentage Receiving Information in the Information Choice Treatment

graph twoway ///
     (bar mean order if order==0, fcolor(white) lcolor(black) barwidth(.25)) ///
     (bar mean order if order==1, fcolor(white) lcolor(black)) ///
     (bar mean order if order==2, fcolor(black) lcolor(black)) ///
     (bar mean order if order==4, fcolor(gs12) lcolor(black)) ///
     (bar mean order if order==5, fcolor(gs6) lcolor(black)) ///
     (bar mean order if order==6, fcolor(black) lcolor(black)), ///
     xlabel(none) ylabel(0(10)93) xscale(off) yscale(range(0 90)) ///
	 yline(0, lcolor(black)) ///
	 text(57.2 1 "{bf:49.2}", color(black) size(large)) ///
	 text(58.8 2 "{bf:50.8}", color(black) size(large)) ///
	 text(32.7 4 "{bf:24.7}", color(black) size(large)) ///
	 text(83.3 5 "{bf:75.3}", color(black) size(large)) ///
	 text(-8 0.9 "{bf:Choose}" "{bf:No Info}") ///
	 text(-8 2.15 "{bf:Choose}" "{bf:Any Info}") ///
	 text(-8 3.9 "{bf:Choose}" "{bf:Party Cues}") ///
	 text(-8 5.25 "{bf:Choose}" "{bf:Voter Guide}") ///
	 text(95 1.5 "{bf:Of those}" "{bf:offered info ...}") ///
	 text(95 4.5 "{bf:Of those}" "{bf:who choose info ...}") ///
	 legend(off) ///
	 ytitle("{bf:Percent}" " ", size(large)) ///
	 xtitle(" ") ///
	 scheme(s1color) ///
	 note(" " " ") ///
     graphregion(color(white)) plotregion(color(white))

* End
